Bias
bias <- as.vector(HateCrimes$`Bias Motive Description`)
bias <- as.matrix(table(bias))
bias
[,1]
60 YRS AND OLDER 1
ANTI-ARAB 7
ANTI-ASIAN 178
ANTI-BLACK 114
ANTI-BUDDHIST 2
ANTI-CATHOLIC 24
ANTI-FEMALE 14
ANTI-FEMALE HOMOSEXUAL (LESBIAN) 15
ANTI-GENDER NON-CONFORMING 6
ANTI-HINDU 2
ANTI-HISPANIC 19
ANTI-JEHOVAHS WITNESS 1
ANTI-JEWISH 592
ANTI-LGBT (MIXED GROUP) 11
ANTI-MALE HOMOSEXUAL (GAY) 158
ANTI-MULTI-RACIAL GROUPS 3
ANTI-MUSLIM 31
ANTI-OTHER ETHNICITY 22
ANTI-OTHER RELIGION 2
ANTI-PHYSICAL DISABILITY 1
ANTI-RELIGIOUS PRACTICE GENERALLY 2
ANTI-TRANSGENDER 35
ANTI-WHITE 56
mypalette<-brewer.pal(7,"BuGn")
barchart(bias, main = "Bar Chart of Bias" , col = mypalette)

sixtyyrs <- HateCrimes %>% filter(`Bias Motive Description` == "60 YRS AND OLDER")
anti_arab <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-ARAB")
anti_asain <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-ASIAN")
anti_black <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-BLACK")
anti_buddhist <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-BUDDHIST")
anti_catholic <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-CATHOLIC")
anti_female <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-FEMALE")
anti_lesbian <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-FEMALE HOMOSEXUAL (LESBIAN)")
anti_gendernonconforming <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-GENDER NON-CONFORMING")
anti_hindu <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-HINDU")
anti_hispanic <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-HISPANIC")
anti_jehovas<- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-JEHOVAHS WITNESS")
anti_jewish <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-JEWISH")
anti_lgbt <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-LGBT (MIXED GROUP)")
anti_gay <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MALE HOMOSEXUAL (GAY)")
anti_multiracial <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MULTI-RACIAL GROUPS")
anti_muslim <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MUSLIM")
anti_otherethnicity <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-OTHER ETHNICITY")
anti_otherreligion <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-OTHER RELIGION")
anti_physicaldis <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-PHYSICAL DISABILITY")
anti_religion <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-RELIGIOUS PRACTICE GENERALLY")
anti_trans <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-TRANSGENDER")
anti_white <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-WHITE")
60 Yrs
assaults_60yrs <- as.vector(sixtyyrs$`Offense Description`)
assaults_60yrs <- as.matrix(table(assaults_60yrs))
assaults_60yrs
[,1]
GRAND LARCENY 1
Anti-Arab
assaults_anti_arab <- as.vector(anti_arab$`Offense Description`)
assaults_anti_arab <- as.matrix(table(assaults_anti_arab))
assaults_anti_arab
[,1]
ASSAULT 3 & RELATED OFFENSES 1
CRIMINAL MISCHIEF & RELATED OF 4
MISCELLANEOUS PENAL LAW 1
OFF. AGNST PUB ORD SENSBLTY & 1
barchart(assaults_anti_arab, main = "Bar Chart of Assaults with Anti-Arab Bias" , col = mypalette)

Anti-Asain
assaults_anti_asain <- as.vector(anti_asain$`Offense Description`)
assaults_anti_asain<- as.matrix(table(assaults_anti_asain))
assaults_anti_asain
[,1]
ASSAULT 3 & RELATED OFFENSES 60
CRIMINAL MISCHIEF & RELATED OF 16
FELONY ASSAULT 36
GRAND LARCENY 2
HARRASSMENT 2 2
MISCELLANEOUS PENAL LAW 13
MURDER & NON-NEGL. MANSLAUGHTE 3
OFF. AGNST PUB ORD SENSBLTY & 37
ROBBERY 8
SEX CRIMES 1
barchart(assaults_anti_asain, main = "Bar Chart of Assaults with Anti-Asain Bias" , col = mypalette)

Anti-Black
assaults_anti_black <- as.vector(anti_black$`Offense Description`)
assaults_anti_black<- as.matrix(table(assaults_anti_black))
assaults_anti_black
[,1]
ASSAULT 3 & RELATED OFFENSES 9
CRIMINAL MISCHIEF & RELATED OF 60
CRIMINAL TRESPASS 1
FELONY ASSAULT 10
HARRASSMENT 2 1
MISCELLANEOUS PENAL LAW 15
OFF. AGNST PUB ORD SENSBLTY & 18
barchart(assaults_anti_black, main = "Bar Chart of Assaults with Anti-Black Bias" , col = mypalette)

Anti-Buddhist
assaults_anti_buddhist <- as.vector(anti_buddhist$`Offense Description`)
assaults_anti_buddhist<- as.matrix(table(assaults_anti_buddhist))
assaults_anti_buddhist
[,1]
CRIMINAL MISCHIEF & RELATED OF 2
barchart(assaults_anti_buddhist, main = "Bar Chart of Assaults with Anti_Buddhist Bias" , col = mypalette)

Anti-Catholic
assaults_anti_catholic <- as.vector(anti_catholic$`Offense Description`)
assaults_anti_catholic<- as.matrix(table(assaults_anti_catholic))
assaults_anti_catholic
[,1]
BURGLARY 1
CRIMINAL MISCHIEF & RELATED OF 19
MISCELLANEOUS PENAL LAW 2
OFF. AGNST PUB ORD SENSBLTY & 1
PETIT LARCENY 1
barchart(assaults_anti_catholic, main = "Bar Chart of Assaults with Anti-Catholic Bias" , col = mypalette)

Anti-Female
assaults_anti_female <- as.vector(anti_female$`Offense Description`)
assaults_anti_female<- as.matrix(table(assaults_anti_female))
assaults_anti_female
[,1]
ASSAULT 3 & RELATED OFFENSES 13
ROBBERY 1
barchart(assaults_anti_female, main = "Bar Chart of Assaults with Anti-Female Bias" , col = mypalette)

Anti-Lesbian
assaults_anti_lesbian <- as.vector(anti_lesbian$`Offense Description`)
assaults_anti_lesbian<- as.matrix(table(assaults_anti_lesbian))
assaults_anti_lesbian
[,1]
ASSAULT 3 & RELATED OFFENSES 3
FELONY ASSAULT 7
MISCELLANEOUS PENAL LAW 2
OFF. AGNST PUB ORD SENSBLTY & 2
SEX CRIMES 1
barchart(assaults_anti_lesbian, main = "Bar Chart of Assaults with Anti-Lesbian Bias" , col = mypalette)

Anti-Hindu
assaults_anti_hindu <- as.vector(anti_hindu$`Offense Description`)
assaults_anti_hindu<- as.matrix(table(assaults_anti_hindu))
assaults_anti_hindu
[,1]
ASSAULT 3 & RELATED OFFENSES 1
CRIMINAL MISCHIEF & RELATED OF 1
barchart(assaults_anti_hindu, main = "Bar Chart of Assaults with Anti-Hindu Bias" , col = mypalette)

Anti-Hispanic
assaults_anti_hispanic <- as.vector(anti_hispanic$`Offense Description`)
assaults_anti_hispanic<- as.matrix(table(assaults_anti_hispanic))
assaults_anti_hispanic
[,1]
ASSAULT 3 & RELATED OFFENSES 4
CRIMINAL MISCHIEF & RELATED OF 5
FELONY ASSAULT 7
MISCELLANEOUS PENAL LAW 1
OFF. AGNST PUB ORD SENSBLTY & 1
ROBBERY 1
barchart(assaults_anti_hispanic, main = "Bar Chart of Assaults with Anti-Hispanic Bias" , col = mypalette)

Anti-Jehovas Witnesses
assaults_anti_jehovas <- as.vector(anti_jehovas$`Offense Description`)
assaults_anti_jehovas<- as.matrix(table(assaults_anti_jehovas))
assaults_anti_jehovas
[,1]
OFF. AGNST PUB ORD SENSBLTY & 1
barchart(assaults_anti_jehovas, main = "Bar Chart of Assaults with Anti-Jehovas Witnesses Bias" , col = mypalette)

Anti-Jewish
assaults_anti_jewish <- as.vector(anti_jewish$`Offense Description`)
assaults_anti_jewish<- as.matrix(table(assaults_anti_jewish))
assaults_anti_jewish
[,1]
ASSAULT 3 & RELATED OFFENSES 35
BURGLARY 5
CRIMINAL MISCHIEF & RELATED OF 166
CRIMINAL TRESPASS 1
FELONY ASSAULT 22
FRAUDS 1
GRAND LARCENY 15
HARRASSMENT 2 6
INVESTIGATIONS/COMPLAINTS ONLY 1
MISCELLANEOUS PENAL LAW 274
OFF. AGNST PUB ORD SENSBLTY & 60
PETIT LARCENY 1
ROBBERY 5
barchart(assaults_anti_jewish, main = "Bar Chart of Assaults with Anti-Jewish Bias" , col = mypalette)

Anti-LGBT
assaults_anti_lgbt <- as.vector(anti_lgbt$`Offense Description`)
assaults_anti_lgbt<- as.matrix(table(assaults_anti_lgbt))
assaults_anti_lgbt
[,1]
ASSAULT 3 & RELATED OFFENSES 2
CRIMINAL MISCHIEF & RELATED OF 5
MISCELLANEOUS PENAL LAW 2
OFF. AGNST PUB ORD SENSBLTY & 2
barchart(assaults_anti_lgbt, main = "Bar Chart of Assaults with Anti-LGBT Bias" , col = mypalette)

Anti-Gay
assaults_anti_gay <- as.vector(anti_gay$`Offense Description`)
assaults_anti_gay<- as.matrix(table(assaults_anti_gay))
assaults_anti_gay
[,1]
ASSAULT 3 & RELATED OFFENSES 51
CRIMINAL MISCHIEF & RELATED OF 26
FELONY ASSAULT 32
HARRASSMENT 2 3
MISCELLANEOUS PENAL LAW 8
MURDER & NON-NEGL. MANSLAUGHTE 1
OFF. AGNST PUB ORD SENSBLTY & 20
ROBBERY 16
SEX CRIMES 1
barchart(assaults_anti_gay, main = "Bar Chart of Assaults with Anti-Gay Bias" , col = mypalette)

Anti-Multiracial Groups
assaults_anti_multiracial <- as.vector(anti_multiracial$`Offense Description`)
assaults_anti_multiracial<- as.matrix(table(assaults_anti_multiracial))
assaults_anti_multiracial
[,1]
ASSAULT 3 & RELATED OFFENSES 1
CRIMINAL MISCHIEF & RELATED OF 1
MISCELLANEOUS PENAL LAW 1
barchart(assaults_anti_multiracial, main = "Bar Chart of Assaults with Anti-Multiracial Groups Bias" , col = mypalette)

Anti-Muslim
assaults_anti_muslim <- as.vector(anti_muslim$`Offense Description`)
assaults_anti_muslim<- as.matrix(table(assaults_anti_muslim))
assaults_anti_muslim
[,1]
ASSAULT 3 & RELATED OFFENSES 6
CRIMINAL MISCHIEF & RELATED OF 5
FELONY ASSAULT 6
GRAND LARCENY 1
HARRASSMENT 2 1
OFF. AGNST PUB ORD SENSBLTY & 8
ROBBERY 4
barchart(assaults_anti_muslim, main = "Bar Chart of Assaults with Anti-Muslim Bias" , col = mypalette)

Anti-Other Ethnicity
assaults_anti_otherethnicity <- as.vector(anti_otherethnicity$`Offense Description`)
assaults_anti_otherethnicity<- as.matrix(table(assaults_anti_otherethnicity))
assaults_anti_otherethnicity
[,1]
ASSAULT 3 & RELATED OFFENSES 5
CRIMINAL MISCHIEF & RELATED OF 8
FELONY ASSAULT 1
MISCELLANEOUS PENAL LAW 4
OFF. AGNST PUB ORD SENSBLTY & 4
barchart(assaults_anti_otherethnicity, main = "Bar Chart of Assaults with Anti-Other Ethnicity Bias" , col = mypalette)

Anti-Other Religion
assaults_anti_otherreligion <- as.vector(anti_otherreligion$`Offense Description`)
assaults_anti_otherreligion<- as.matrix(table(assaults_anti_otherreligion))
assaults_anti_otherreligion
[,1]
CRIMINAL MISCHIEF & RELATED OF 1
MISCELLANEOUS PENAL LAW 1
barchart(assaults_anti_otherreligion, main = "Bar Chart of Assaults with Anti-Other Religion Bias" , col = mypalette)

Anti-Physical Disability
assaults_anti_physicaldis <- as.vector(anti_physicaldis$`Offense Description`)
assaults_anti_physicaldis<- as.matrix(table(assaults_anti_physicaldis))
assaults_anti_physicaldis
[,1]
MISCELLANEOUS PENAL LAW 1
barchart(assaults_anti_physicaldis, main = "Bar Chart of Assaults with Anti-Physical Disability Bias" , col = mypalette)

Anti-Religion Practices Generally
assaults_anti_religion <- as.vector(anti_religion$`Offense Description`)
assaults_anti_religion<- as.matrix(table(assaults_anti_religion))
assaults_anti_religion
[,1]
CRIMINAL MISCHIEF & RELATED OF 1
MISCELLANEOUS PENAL LAW 1
barchart(assaults_anti_religion, main = "Bar Chart of Assaults with Anti-Religion Practices Generally Bias" , col = mypalette)

Anti-Transgender
assaults_anti_trans <- as.vector(anti_trans$`Offense Description`)
assaults_anti_trans<- as.matrix(table(assaults_anti_trans))
assaults_anti_trans
[,1]
ASSAULT 3 & RELATED OFFENSES 17
CRIMINAL MISCHIEF & RELATED OF 2
DANGEROUS WEAPONS 2
FELONY ASSAULT 9
MISCELLANEOUS PENAL LAW 1
OFF. AGNST PUB ORD SENSBLTY & 3
ROBBERY 1
barchart(assaults_anti_trans, main = "Bar Chart of Assaults with Anti-Transgender Bias" , col = mypalette)

Anti-White
assaults_anti_white <- as.vector(anti_white$`Offense Description`)
assaults_anti_white<- as.matrix(table(assaults_anti_white))
assaults_anti_white
[,1]
ASSAULT 3 & RELATED OFFENSES 22
CRIMINAL MISCHIEF & RELATED OF 9
FELONY ASSAULT 15
GRAND LARCENY 1
HARRASSMENT 2 1
OFF. AGNST PUB ORD SENSBLTY & 6
RAPE 1
ROBBERY 1
barchart(assaults_anti_white, main = "Bar Chart of Assaults with Anti-White Bias" , col = mypalette)

Borough
borough <- as.vector(HateCrimes$`Patrol Borough Name`)
borough <- as.matrix(table(borough))
borough
[,1]
PATROL BORO BKLYN NORTH 198
PATROL BORO BKLYN SOUTH 243
PATROL BORO BRONX 110
PATROL BORO MAN NORTH 167
PATROL BORO MAN SOUTH 295
PATROL BORO QUEENS NORTH 152
PATROL BORO QUEENS SOUTH 83
PATROL BORO STATEN ISLAND 48
mypalette<-brewer.pal(7,"BuGn")
barchart(borough, main = "Bar Chart of Borough" , col = mypalette)

bklyn_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BKLYN NORTH")
bklyn_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BKLYN SOUTH")
bronx <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BRONX")
man_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO MAN NORTH")
man_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO MAN SOUTH")
queens_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO QUEENS NORTH")
queens_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO QUEENS SOUTH")
staten_island <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO STATEN ISLAND")
Brooklyn North
assaults_bklyn_north <- as.vector(bklyn_north$`Offense Description`)
assaults_bklyn_north<- as.matrix(table(assaults_bklyn_north))
assaults_bklyn_north
[,1]
ASSAULT 3 & RELATED OFFENSES 39
CRIMINAL MISCHIEF & RELATED OF 41
FELONY ASSAULT 28
GRAND LARCENY 8
HARRASSMENT 2 4
MISCELLANEOUS PENAL LAW 45
OFF. AGNST PUB ORD SENSBLTY & 25
ROBBERY 8
barchart(assaults_bklyn_north, main = "Bar Chart of Assaults in Brooklyn North" , col = mypalette)

Brooklyn South
assaults_bklyn_south <- as.vector(bklyn_south$`Offense Description`)
assaults_bklyn_south<- as.matrix(table(assaults_bklyn_south))
assaults_bklyn_south
[,1]
ASSAULT 3 & RELATED OFFENSES 40
BURGLARY 5
CRIMINAL MISCHIEF & RELATED OF 60
CRIMINAL TRESPASS 1
DANGEROUS WEAPONS 1
FELONY ASSAULT 13
GRAND LARCENY 6
HARRASSMENT 2 3
MISCELLANEOUS PENAL LAW 78
MURDER & NON-NEGL. MANSLAUGHTE 1
OFF. AGNST PUB ORD SENSBLTY & 27
ROBBERY 8
barchart(assaults_bklyn_south, main = "Bar Chart of Assaults in Brooklyn South" , col = mypalette)

Bronx
assaults_bronx <- as.vector(bronx$`Offense Description`)
assaults_bronx<- as.matrix(table(assaults_bronx))
assaults_bronx
[,1]
ASSAULT 3 & RELATED OFFENSES 16
BURGLARY 1
CRIMINAL MISCHIEF & RELATED OF 39
CRIMINAL TRESPASS 1
FELONY ASSAULT 16
HARRASSMENT 2 1
INVESTIGATIONS/COMPLAINTS ONLY 1
MISCELLANEOUS PENAL LAW 24
OFF. AGNST PUB ORD SENSBLTY & 4
RAPE 1
ROBBERY 6
barchart(assaults_bronx, main = "Bar Chart of Assaults in Bronx" , col = mypalette)

Manhattan North
assaults_man_north <- as.vector(man_north$`Offense Description`)
assaults_man_north<- as.matrix(table(assaults_man_north))
assaults_man_north
[,1]
ASSAULT 3 & RELATED OFFENSES 23
CRIMINAL MISCHIEF & RELATED OF 38
FELONY ASSAULT 17
GRAND LARCENY 2
HARRASSMENT 2 1
MISCELLANEOUS PENAL LAW 55
MURDER & NON-NEGL. MANSLAUGHTE 2
OFF. AGNST PUB ORD SENSBLTY & 26
PETIT LARCENY 1
ROBBERY 2
barchart(assaults_man_north, main = "Bar Chart of Assaults in Manhattan North" , col = mypalette)

Manhattan South
assaults_man_south <- as.vector(man_south$`Offense Description`)
assaults_man_south<- as.matrix(table(assaults_man_south))
assaults_man_south
[,1]
ASSAULT 3 & RELATED OFFENSES 63
CRIMINAL MISCHIEF & RELATED OF 56
FELONY ASSAULT 49
GRAND LARCENY 3
HARRASSMENT 2 1
MISCELLANEOUS PENAL LAW 57
OFF. AGNST PUB ORD SENSBLTY & 53
PETIT LARCENY 1
ROBBERY 9
SEX CRIMES 3
barchart(assaults_man_south, main = "Bar Chart of Assaults in Manhattan South" , col = mypalette)

Queens North
assaults_queens_north <- as.vector(queens_north$`Offense Description`)
assaults_queens_north<- as.matrix(table(assaults_queens_north))
assaults_queens_north
[,1]
ASSAULT 3 & RELATED OFFENSES 32
CRIMINAL MISCHIEF & RELATED OF 54
FELONY ASSAULT 12
FRAUDS 1
GRAND LARCENY 1
HARRASSMENT 2 2
MISCELLANEOUS PENAL LAW 39
OFF. AGNST PUB ORD SENSBLTY & 9
ROBBERY 2
barchart(assaults_queens_north, main = "Bar Chart of Assaults in Queens North" , col = mypalette)

Queens South
assaults_queens_south <- as.vector(queens_south$`Offense Description`)
assaults_queens_south<- as.matrix(table(assaults_queens_south))
assaults_queens_south
[,1]
ASSAULT 3 & RELATED OFFENSES 12
CRIMINAL MISCHIEF & RELATED OF 19
DANGEROUS WEAPONS 1
FELONY ASSAULT 10
HARRASSMENT 2 2
MISCELLANEOUS PENAL LAW 19
MURDER & NON-NEGL. MANSLAUGHTE 1
OFF. AGNST PUB ORD SENSBLTY & 17
ROBBERY 2
barchart(assaults_queens_south, main = "Bar Chart of Assaults in Queens South" , col = mypalette)

Staten Island
assaults_staten_island <- as.vector(staten_island$`Offense Description`)
assaults_staten_island<- as.matrix(table(assaults_staten_island))
assaults_staten_island
[,1]
ASSAULT 3 & RELATED OFFENSES 7
CRIMINAL MISCHIEF & RELATED OF 24
FELONY ASSAULT 3
MISCELLANEOUS PENAL LAW 10
OFF. AGNST PUB ORD SENSBLTY & 3
ROBBERY 1
barchart(assaults_staten_island, main = "Bar Chart of Assaults in Staten Island" , col = mypalette)

Bias group assaulted the most in each borough
Brooklyn North
bias_bklyn_north <- as.vector(bklyn_north$`Bias Motive Description`)
bias_bklyn_north<- as.matrix(table(bias_bklyn_north))
bias_bklyn_north
[,1]
ANTI-ARAB 1
ANTI-ASIAN 15
ANTI-BLACK 17
ANTI-CATHOLIC 1
ANTI-FEMALE 14
ANTI-FEMALE HOMOSEXUAL (LESBIAN) 2
ANTI-HISPANIC 3
ANTI-JEWISH 100
ANTI-LGBT (MIXED GROUP) 1
ANTI-MALE HOMOSEXUAL (GAY) 24
ANTI-MUSLIM 3
ANTI-OTHER ETHNICITY 3
ANTI-TRANSGENDER 7
ANTI-WHITE 7
barchart(bias_bklyn_north, main = "Bar Chart of Bias in Brooklyn North" , col = mypalette)

Brooklyn South
bias_bklyn_south <- as.vector(bklyn_south$`Bias Motive Description`)
bias_bklyn_south<- as.matrix(table(bias_bklyn_south))
bias_bklyn_south
[,1]
ANTI-ARAB 3
ANTI-ASIAN 21
ANTI-BLACK 16
ANTI-CATHOLIC 7
ANTI-GENDER NON-CONFORMING 1
ANTI-HISPANIC 2
ANTI-JEWISH 158
ANTI-LGBT (MIXED GROUP) 1
ANTI-MALE HOMOSEXUAL (GAY) 20
ANTI-MUSLIM 6
ANTI-OTHER RELIGION 1
ANTI-RELIGIOUS PRACTICE GENERALLY 1
ANTI-TRANSGENDER 2
ANTI-WHITE 4
barchart(bias_bklyn_south, main = "Bar Chart of Bias in Brooklyn South" , col = mypalette)

Bronx
bias_bronx <- as.vector(bronx$`Bias Motive Description`)
bias_bronx<- as.matrix(table(bias_bronx))
bias_bronx
[,1]
ANTI-ASIAN 8
ANTI-BLACK 9
ANTI-CATHOLIC 2
ANTI-FEMALE HOMOSEXUAL (LESBIAN) 3
ANTI-HISPANIC 4
ANTI-JEWISH 51
ANTI-LGBT (MIXED GROUP) 1
ANTI-MALE HOMOSEXUAL (GAY) 13
ANTI-MUSLIM 6
ANTI-TRANSGENDER 5
ANTI-WHITE 8
barchart(bias_bronx, main = "Bar Chart of Bias in Bronx" , col = mypalette)

Manhattan North
bias_man_north <- as.vector(man_north$`Bias Motive Description`)
bias_man_north<- as.matrix(table(bias_man_north))
bias_man_north
[,1]
ANTI-ARAB 1
ANTI-ASIAN 19
ANTI-BLACK 14
ANTI-CATHOLIC 3
ANTI-FEMALE HOMOSEXUAL (LESBIAN) 6
ANTI-GENDER NON-CONFORMING 3
ANTI-HISPANIC 1
ANTI-JEWISH 75
ANTI-LGBT (MIXED GROUP) 3
ANTI-MALE HOMOSEXUAL (GAY) 23
ANTI-MULTI-RACIAL GROUPS 1
ANTI-MUSLIM 1
ANTI-OTHER ETHNICITY 5
ANTI-PHYSICAL DISABILITY 1
ANTI-TRANSGENDER 3
ANTI-WHITE 8
barchart(bias_man_north, main = "Bar Chart of Bias in Manhattan North" , col = mypalette)

Manhattan South
bias_man_south <- as.vector(man_south$`Bias Motive Description`)
bias_man_south<- as.matrix(table(bias_man_south))
bias_man_south
[,1]
ANTI-ARAB 1
ANTI-ASIAN 80
ANTI-BLACK 17
ANTI-BUDDHIST 1
ANTI-CATHOLIC 6
ANTI-FEMALE HOMOSEXUAL (LESBIAN) 4
ANTI-HISPANIC 3
ANTI-JEHOVAHS WITNESS 1
ANTI-JEWISH 100
ANTI-LGBT (MIXED GROUP) 4
ANTI-MALE HOMOSEXUAL (GAY) 47
ANTI-MULTI-RACIAL GROUPS 2
ANTI-MUSLIM 2
ANTI-OTHER ETHNICITY 6
ANTI-TRANSGENDER 3
ANTI-WHITE 18
barchart(bias_man_south, main = "Bar Chart of Bias in Manhattan South" , col = mypalette)

Queens North
bias_queens_north <- as.vector(queens_north$`Bias Motive Description`)
bias_queens_north<- as.matrix(table(bias_queens_north))
bias_queens_north
[,1]
60 YRS AND OLDER 1
ANTI-ARAB 1
ANTI-ASIAN 25
ANTI-BLACK 15
ANTI-BUDDHIST 1
ANTI-CATHOLIC 2
ANTI-GENDER NON-CONFORMING 2
ANTI-HINDU 1
ANTI-HISPANIC 3
ANTI-JEWISH 60
ANTI-LGBT (MIXED GROUP) 1
ANTI-MALE HOMOSEXUAL (GAY) 16
ANTI-MUSLIM 6
ANTI-OTHER ETHNICITY 3
ANTI-OTHER RELIGION 1
ANTI-RELIGIOUS PRACTICE GENERALLY 1
ANTI-TRANSGENDER 12
ANTI-WHITE 1
barchart(bias_queens_north, main = "Bar Chart of Bias in Queens North" , col = mypalette)

Queens South
bias_queens_south <- as.vector(queens_south$`Bias Motive Description`)
bias_queens_south<- as.matrix(table(bias_queens_south))
bias_queens_south
[,1]
ANTI-ASIAN 7
ANTI-BLACK 9
ANTI-CATHOLIC 3
ANTI-HINDU 1
ANTI-HISPANIC 2
ANTI-JEWISH 30
ANTI-MALE HOMOSEXUAL (GAY) 12
ANTI-MUSLIM 6
ANTI-OTHER ETHNICITY 3
ANTI-TRANSGENDER 3
ANTI-WHITE 7
barchart(bias_queens_south, main = "Bar Chart of Bias in Queens South" , col = mypalette)

Staten Island
bias_staten_island <- as.vector(staten_island$`Bias Motive Description`)
bias_staten_island<- as.matrix(table(bias_staten_island))
bias_staten_island
[,1]
ANTI-ASIAN 3
ANTI-BLACK 17
ANTI-HISPANIC 1
ANTI-JEWISH 18
ANTI-MALE HOMOSEXUAL (GAY) 3
ANTI-MUSLIM 1
ANTI-OTHER ETHNICITY 2
ANTI-WHITE 3
barchart(bias_staten_island, main = "Bar Chart of Bias in Staten Island" , col = mypalette)
